Ignore invalid base64 encoded embedded images

* lisp/net/shr.el (shr-image-from-data): Ignore invalid base64
encoded embedded images (bug#22928).

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4f64618c00804be416a0c36173c289f2a2a2a52f..cd55f223cf692fa93edb181ffaa8cfa951278ab2 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -946,7 +946,8 @@ If EXTERNAL, browse the URL using `shr-external-browser'."
     (let ((param (match-string 4 data))
          (payload (url-unhex-string (match-string 5 data))))
       (when (string-match "^.*\\(;[ \t]*base64\\)$" param)
-       (setq payload (base64-decode-string payload)))
+       (setq payload (ignore-errors
+                        (base64-decode-string payload))))
       payload)))
 
 ;; Behind display-graphic-p test.